home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d3.d64 / vowels at end (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  16KB  |  476 lines
  1. 100 PRINT"[147]":POKE53248+21,0:POKE53248+23,0:POKE53248+29,0:POKE808,225
  2. 110 Q1$=""
  3. 120 Q2$=""
  4. 130 Q3$=""
  5. 140 PRINT"[147]      P H O N C E N T R A T I O N "
  6. 150 REM
  7. 160 REM BY MARIO VELA-MARTINEZ
  8. 170 REM
  9. 180 REM ASSISTANCE BY:
  10. 190 REM CARLOS VELA-MARTINEZ &
  11. 200 REM RAYMOND PRACHUN
  12. 210 REM
  13. 220 REM  1018 LAVENDER CRT.
  14. 230 REM  OSHAWA, ONTARIO (CANADA)
  15. 240 REM  L1G 3H1
  16. 250 REM
  17. 260 REM
  18. 270 DIMWD$(14),L1(14),C1$(124),C2(124):DIMB1(14):DIMS4(14),EE$(7)
  19. 280 DIMB2(14):DIMSP(14):DIMCH(36):MA=2
  20. 290 DIMI1(30),I2(30),I3(30),I4(30),I5(30):DIMW1(20),W2(20),W3(20):RESTORE
  21. 300 DIMS1(14),S2(14),S3(14),Y1$(15),Y2$(15)
  22. 310 MA=2:PRINTCHR$(8):GOSUB320:GOTO400
  23. 320 RESTORE
  24. 330 FORI=1TO14:READA$:READA:C1$(I)=A$:C2(I)=A:NEXTI
  25. 340 REM
  26. 350 REM
  27. 360 REM
  28. 370 RETURN
  29. 380 CL=CL+2:POKE53280,CL:POKE53281,CL+2
  30. 390 RETURN
  31. 400 GOSUB3180
  32. 410 FORI=1TO27:READA,B,C,D,E:I1(I)=A:I2(I)=B:I3(I)=C:I4(I)=D:I5(I)=E:NEXTI
  33. 420 FORI=1TO14:READA,B,C:W1(I)=A:W2(I)=B:W3(I)=C:NEXTI
  34. 430 GOSUB2490
  35. 440 REM
  36. 450 GOSUB3930
  37. 460 POKEV+21,0:PRINT"[147]":POKE53280,6:POKE53281,0
  38. 470 G1$="[159] [213][195][195][201][160][213][195][195][201][160][213][195][195][201] [213][195][195][201][160][213][195][195][201]"
  39. 480 G2$="[159] [194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194]"
  40. 490 G3$="[159] [202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203]"
  41. 500 FORI=1TO3:PRINTG1$:PRINTG2$:PRINTG3$:PRINT"":NEXT
  42. 510 PRINT"[154]    [146]"
  43. 520 PRINT"    [146]"
  44. 530 PRINT"    [146][159]"
  45. 540 FORT=1784TO1810:POKET,160:POKET+54272,14:NEXT
  46. 550 FORT=1770TO1024STEP-40:POKET,160:POKET+54272,14:NEXT
  47. 560 FORT=1051TO1063:POKET,160:POKET+54272,14:NEXT
  48. 570 FORT=1063TO1743STEP40:POKET,160:POKE54272+T,14:NEXT
  49. 580 FORT=1783TO1771STEP-1:POKET,160:POKET+54272,14:NEXT
  50. 590 FORT=1811TO1823:POKET,160:POKET+54272,14:NEXTT
  51. 600 G4$=""
  52. 610 PRINT"";G4$;"WORD LIST":D1=30
  53. 620 PRINT"";G4$;"[157]1. ";WD$(1):XY=1:GOSUB700
  54. 630 PRINT"";G4$;"[157]2. ";WD$(2):XY=2:GOSUB700
  55. 640 PRINT"";G4$;"[157]3. ";WD$(3):XY=3:GOSUB700
  56. 650 PRINT"";G4$;"[157]4. ";WD$(4):XY=4:GOSUB700
  57. 660 PRINT"";G4$;"[157]5. ";WD$(5):XY=5:GOSUB700
  58. 670 PRINT"";G4$;"[157]6. ";WD$(6):XY=6:GOSUB700
  59. 680 PRINT"";G4$;"[157]7. ";WD$(7):XY=7:GOSUB700
  60. 690 GOTO1190
  61. 700 D=L1(XY):PRINT"[145]";TAB(D1+D);"--":RETURN
  62. 710 RESTORE
  63. 720 PRINTQ3$"            ONE MOMENT PLEASE ";
  64. 725 FORI=1TO36:CH(I)=0:NEXT
  65. 730 FORT=1TO7
  66. 740 A=INT(RND(1)*14+1)
  67. 750 IFCH(A)=50THEN740
  68. 760 IFC1$(A)=""THEN740
  69. 770 WD$(T)=C1$(A):WD$(T+7)=C1$(A)
  70. 780 IFWD$(T)=""THEN740
  71. 790 IFWD$(T+7)=""THEN740
  72. 800 L1(T)=C2(A):L1(T+7)=C2(A)
  73. 810 CH(A)=50
  74. 820 NEXTT
  75. 830 GOSUB960:RETURN
  76. 840 DATA"UNTRUE",5,"BLUEJAY",6,"STUDIO",5,"YOU",2,"GLUE",3,"BLUE",3,"RADIO",4
  77. 850 DATA"STAY",3,"WAY",2,"FRIDAY",5,"PRAY",3,"SPRAY",4,"AWAY",3,"TODAY",4
  78. 940 REM
  79. 950 REM
  80. 960 REM
  81. 970 FORI=1TO14
  82. 980 F=0:IS=INT(RND(1)*14+1)
  83. 990 F=F+1:IFSP(F)=ISTHEN980
  84. 1000 IFF=14THEN1020
  85. 1010 GOTO990
  86. 1020 F=0
  87. 1030 IFIS=1THENS1(I)=1106:S2(I)=49:S3(I)=48:S4(I)=10:B1(I)=81:B2(I)=36
  88. 1040 IFIS=2THENS1(I)=1111:S2(I)=49:S3(I)=49:S4(I)=11:B1(I)=81:B2(I)=77
  89. 1050 IFIS=3THENS1(I)=1116:S2(I)=49:S3(I)=50:S4(I)=12:B1(I)=81:B2(I)=116
  90. 1060 IFIS=4THENS1(I)=1121:S2(I)=49:S3(I)=51:S4(I)=13:B1(I)=81:B2(I)=155
  91. 1070 IFIS=5THENS1(I)=1126:S2(I)=49:S3(I)=52:S4(I)=14:B1(I)=81:B2(I)=195
  92. 1080 IFIS=6THENS1(I)=1346:S2(I)=49:S3(I)=53:S4(I)=15:B1(I)=129:B2(I)=36
  93. 1090 IFIS=7THENS1(I)=1351:S2(I)=49:S3(I)=54:S4(I)=16:B1(I)=129:B2(I)=77
  94. 1100 IFIS=8THENS1(I)=1361:S2(I)=49:S3(I)=55:S4(I)=17:B1(I)=129:B2(I)=155
  95. 1110 IFIS=9THENS1(I)=1366:S2(I)=49:S3(I)=56:S4(I)=18:B1(I)=129:B2(I)=195
  96. 1120 IFIS=10THENS1(I)=1586:S2(I)=49:S3(I)=57:S4(I)=19:B1(I)=177:B2(I)=36
  97. 1130 IFIS=11THENS1(I)=1591:S2(I)=50:S3(I)=48:S4(I)=20:B1(I)=177:B2(I)=77
  98. 1140 IFIS=12THENS1(I)=1596:S2(I)=50:S3(I)=49:S4(I)=21:B1(I)=177:B2(I)=116
  99. 1150 IFIS=13THENS1(I)=1601:S2(I)=50:S3(I)=50:S4(I)=22:B1(I)=177:B2(I)=155
  100. 1160 IFIS=14THENS1(I)=1606:S2(I)=50:S3(I)=51:S4(I)=23:B1(I)=177:B2(I)=195
  101. 1170 SP(I)=IS
  102. 1180 NEXT:RETURN
  103. 1190 FORI=1TO14
  104. 1200 POKES1(I),S2(I):POKE54272+S1(I),1:POKES1(I)+1,S3(I):POKE54272+S1(I)+1,1
  105. 1210 NEXTI:GOSUB4130:GOTO1560
  106. 1220 A$=""
  107. 1230 PRINTQ1$;"                                       "
  108. 1240 PRINTQ1$;ZZ$(MA);" ";U$
  109. 1250 A$=""
  110. 1260 GETB$:IFB$=""THEN1260
  111. 1270 IFB$="[133]"THEN2480
  112. 1280 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
  113. 1290 IFB$<>CHR$(I)THENJW=JW+1
  114. 1300 NEXTI:IFJW=10THEN1260
  115. 1310 X1=JX-48:IFX1<0ORX1>2THEN1260
  116. 1320 PRINTA$;B$
  117. 1330 GETB$:IFB$=""THEN1330
  118. 1340 IFB$="[133]"THEN2480
  119. 1350 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
  120. 1360 IFB$<>CHR$(I)THENJW=JW+1
  121. 1370 NEXTI:IFB$=CHR$(20)THENPRINTA$;"  ":GOTO1260
  122. 1380 IFJW=10THEN1330
  123. 1390 X2=JX-48
  124. 1400 A8=X1*10:A9=A8+X2:IFA9>23THEN1330
  125. 1410 PRINTA$;"";B$
  126. 1420 GETB$:IFB$=""THEN1420
  127. 1430 IFB$="[133]"THEN2480
  128. 1440 X1=X1*10:X=X1+X2:IFX>23THEN1330
  129. 1450 IFB$=CHR$(20)THENPRINTA$;"  ":B$="":GOTO1260
  130. 1460 IFB$=CHR$(13)THENA$="":RETURN
  131. 1470 B$="":GOTO1420
  132. 1480 POKE198,0:GOSUB1530:PRINTQ1$;WR$
  133. 1490 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
  134. 1500 GETB$:IFB$=""THEN1500
  135. 1510 IFB$<>CHR$(13)THEN1500
  136. 1520 GOSUB1530:RETURN
  137. 1530 PRINTQ1$;"                                       "
  138. 1540 PRINTQ2$;"                                       "
  139. 1550 PRINTQ3$;"                                      ":RETURN
  140. 1560 GOSUB2410
  141. 1570 A$=""
  142. 1580 GOSUB1220:W=0
  143. 1590 W=W+1:IFS4(W)=XTHENA=W:GOTO1610
  144. 1600 GOTO1590
  145. 1610 W=0
  146. 1620 IFC1$(A)<>"NIL"THEN1660
  147. 1630 PRINTQ1$;"                                        "
  148. 1640 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
  149. 1650 XC=2:GOTO1560
  150. 1660 GOSUB3510
  151. 1670 U$="NOW CHOOSE A SECOND CARD":GOSUB1220
  152. 1680 IFS4(A)<>XTHEN1720
  153. 1690 PRINTQ1$;"                                        "
  154. 1700 PRINTQ1$;" PLEASE DO NOT PICK THE SAME CARD TWICE!":GOSUB4860
  155. 1710 GOTO1670
  156. 1720 W=0
  157. 1730 W=W+1:IFS4(W)=XTHENA1=W:GOTO1750
  158. 1740 GOTO1730
  159. 1750 W=0:IFC1$(A1)<>"NIL"THEN1790
  160. 1760 PRINTQ1$;"                                       "
  161. 1770 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
  162. 1780 GOTO1670
  163. 1790 REM
  164. 1800 GOSUB3650
  165. 1810 D$=WD$(A):E$=WD$(A1):D=L1(A):E=L1(A1):D1$=MID$(D$,D):E1$=MID$(E$,E)
  166. 1820 IFLEFT$(D1$,2)=LEFT$(E1$,2)THEN1870
  167. 1830 PRINTQ1$;"                                      "
  168. 1840 POKES+6,9:FORI=255TO0STEP-10
  169. 1850 POKES+4,17:POKES,20:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  170. 1860 WR$="       SORRY, THAT IS NOT A MATCH [146] ":GOSUB1480:GOTO2170
  171. 1870 REM
  172. 1880 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
  173. 1890 POKES+4,17:POKES,200:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  174. 1900 WR$="     THAT'S RIGHT WE HAVE A MATCH! "
  175. 1910 FORQ=1TO10:POKE53280,Q:POKE53281,Q+1
  176. 1920 FORDY=1TO30:NEXTDY:NEXTQ:POKE53280,6:POKE53281,0
  177. 1930 GOSUB1480
  178. 1940 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2)
  179. 1950 PRINTQ2$;" WHICH WORD CAN YOU COMPLETE[160]WITH ";D1$;"[146]?   "
  180. 1960 GETB$:IFB$=""THEN1960
  181. 1970 IFB$="1"THENNM=1:GOSUB2070:GOTO2080
  182. 1980 IFB$="2"THENNM=2:GOSUB2070:GOTO2080
  183. 1990 IFB$="3"THENNM=3:GOSUB2070:GOTO2080
  184. 2000 IFB$="4"THENNM=4:GOSUB2070:GOTO2080
  185. 2010 IFB$="5"THENNM=5:GOSUB2070:GOTO2080
  186. 2020 IFB$="6"THENNM=6:GOSUB2070:GOTO2080
  187. 2030 IFB$="7"THENNM=7:GOSUB2070:GOTO2080
  188. 2040 IFB$="[133]"THEN2480
  189. 2050 GOTO1960
  190. 2060 GOTO2080
  191. 2070 D$=MID$(WD$(NM),L1(NM)):AN$=LEFT$(D$,2):RETURN
  192. 2080 IFEE$(NM)<>"NIL"THEN2120
  193. 2090 PRINTQ2$;"                                       "
  194. 2100 PRINTQ1$;"    SORRY ";B$;" HAS ALREADY BEEN PICKED.":GOSUB4860
  195. 2110 GOTO1940
  196. 2120 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2):IFD1$=AN$THEN2210
  197. 2130 POKES+6,9:POKES,40:POKES+1,255:FORI=1TO10:NEXTI:FORI=255TO0STEP-10
  198. 2140 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  199. 2150 PRINTQ2$;"                                      "
  200. 2160 PRINTQ1$;" I AM VERY SORRY, BUT YOU ARE WRONG.     ":GOSUB4860
  201. 2170 POKES1(A)+54272,1:POKES1(A)+54273,1
  202. 2180 POKES1(A),S2(A):POKES1(A)+1,S3(A)
  203. 2190 POKES1(A1)+54272,1:POKES1(A1)+54273,1
  204. 2200 POKES1(A1),S2(A1):POKES1(A1)+1,S3(A1):POKEV+21,0:GOTO1560
  205. 2210 PRINTQ1$;"                                        "
  206. 2220 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
  207. 2230 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  208. 2240 FORI=1TO10:POKE53280,I:POKE53281,I+1:NEXTI:POKE53280,6:POKE53281,0
  209. 2250 WR$="          WOW!! WOW!! WOW!!":GOSUB1480
  210. 2260 IFMA=1THENT1=T1+1
  211. 2270 IFMA=2THENT2=T2+1
  212. 2280 IFT1+T2<>7THEN2300
  213. 2290 GOSUB3790:GOSUB4170:POKEV+21,0:GOTO4230
  214. 2300 REM
  215. 2310 PRINTQ1$;"                                        "
  216. 2320 PRINTQ1$;"    YOU MAY NOW HAVE ANOTHER TURN.      "
  217. 2330 FORDY=1TO1000:NEXTDY
  218. 2340 IFMA=1THENT1=T1-1
  219. 2350 IFMA=2THENT2=T2-1
  220. 2360 GOSUB3790:C1$(A)="NIL":C1$(A1)="NIL"
  221. 2370 IFMA=1THENT1=T1+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
  222. 2380 IFMA=2THENT2=T2+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
  223. 2390 GOSUB4130:POKEV+21,0
  224. 2400 GOTO1580
  225. 2410 IFXC=2THENXC=0:GOTO2440
  226. 2420 IFMA=2THENMA=1:GOTO2440
  227. 2430 IFMA=1THENMA=2:GOTO2460
  228. 2440 U$="WHICH CARD WOULD YOU LIKE?     "
  229. 2450 Z=26:RX=27:RETURN
  230. 2460 U$="WHICH CARD WOULD YOU LIKE?     "
  231. 2470 Z=26:RX=27:RETURN
  232. 2480 V=53248:POKEV+21,0:GOSUB2880:GOTO4640
  233. 2490 POKE53280,14:POKE53281,0:PRINT"[147]"
  234. 2500 A$="":PRINTCHR$(142)
  235. 2510 PRINT"[156]UE"
  236. 2520 PRINT"[153]AY"
  237. 2530 PRINT"";TAB(32);"[129]IO"
  238. 2540 PRINT"";TAB(35);"OU"
  239. 2550 PRINT"[158]AY"
  240. 2560 PRINT"[154]OU"
  241. 2570 PRINT"";TAB(30);"[158]IO"
  242. 2580 PRINT"";TAB(16);"[159]UE"
  243. 2600 FORI=1TO14
  244. 2610 PRINTA$;TAB(11);"[158][145][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160]"
  245. 2620 PRINTTAB(11);" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][209]"
  246. 2630 PRINTTAB(11);"[209][180]PHONCENTRATION[158][170] "
  247. 2640 PRINTTAB(11);" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][209]"
  248. 2650 PRINTTAB(11);"[209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] "
  249. 2660 PRINTTAB(11)" A PHONIC DRILL &"
  250. 2670 PRINTTAB(11)"   PRACTICE GAME  "
  251. 2675 PRINTTAB(8)"PART 3: VOWELS AT THE END"
  252. 2680 PRINTTAB(09)"[159]BY MARIO VELA-MARTINEZ"
  253. 2690 PRINTTAB(09)"[159]          AND"
  254. 2700 PRINTTAB(09)"[159] CARLOS VELA-MARTINEZ"
  255. 2710 PRINTTAB(08)"[159]ASSISTANCE BY RAY PRACHUN"
  256. 2730 PRINTA$;TAB(11);"[145] [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209]"
  257. 2740 PRINTTAB(11);"[209][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
  258. 2750 PRINTTAB(11);" [180]PHONCENTRATION[158][170][209]"
  259. 2760 PRINTTAB(11);"[209][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  260. 2770 PRINTTAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] [209]"
  261. 2780 POKES+24,15
  262. 2790 POKES+4,65:POKES+1,W1(I):POKES+0,W2(I):FORKK=1TOW3(I):NEXTKK:POKES+4,64
  263. 2800 NEXTI:FORKK=1TO1500:NEXT
  264. 2820 POKEV+21,12:POKEV+4,86:POKEV+5,100:POKEV+6,255:POKEV+7,100
  265. 2830 GOSUB710
  266. 2840 POKEV+21,0:PRINT"[147]    DO YOU WISH INSTRUCTIONS (Y/N)? "
  267. 2850 GETZ$:IFZ$=""THEN2850
  268. 2860 IFZ$="N"THENRETURN
  269. 2870 IFZ$<>"Y"THEN2850
  270. 2880 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- ":POKE53280,6:POKE53281,12:PRINTCHR$(14)
  271. 2890 PRINT"  [212]HE OBJECT OF THE GAME IS TO TRY TO"
  272. 2900 PRINT" COMPLETE THE WORD LIST, SHOWN ON THE"
  273. 2910 PRINT" RIGHT-HAND SIDE OF THE SCREEN."
  274. 2920 PRINT"  [207]N A TURN, A PLAYER IS ALLOWED TO "
  275. 2930 PRINT" CHOOSE TWO CARDS. [212]HE AIM IS TO PICK "
  276. 2940 PRINT" TWO VOWEL COMBINATIONS THAT MATCH.       [198]OR EXAMPLE..."
  277. 2950 PRINT"             [144][193][217] AND [144][193][217]"
  278. 2960 PRINT"  [201]F THE TWO CARDS MATCH, THE PLAYER"
  279. 2970 PRINT" IS ALLOWED TO TRY TO DECIDE WHICH"
  280. 2980 PRINT" WORD WILL BE PROPERLY COMPLETED WITH"
  281. 2990 PRINT" THAT VOWEL COMBINATION.[160]                 [198]OR EXAMPLE..."
  282. 3000 PRINT"   [160]    [144][212][207][196]-- + [144][193][217] = [144][212][207][196][193][217]"
  283. 3010 PRINT"[144]       [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][195][207][206][212][201][206][213][197]";
  284. 3020 GETB$:IFB$<>CHR$(13)THEN3020
  285. 3030 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- "
  286. 3040 PRINT"  [215]HEN THE ANSWER IS CORRECT, THE"
  287. 3050 PRINT" PLAYER IS AWARDED 1 POINT AND IS THEN"
  288. 3060 PRINT" GIVEN ANOTHER TURN. [207]NCE ALL THE CARDS"
  289. 3070 PRINT" HAVE BEEN DRAWN, THE PLAYER WITH THE"
  290. 3080 PRINT" HIGHEST SCORE WINS!!"
  291. 3090 PRINT"  [211]O THAT YOU DON'T HAVE TO DO ALL THE"
  292. 3100 PRINT" WORK, TWO FRIENDLY [194]UGABOOS HAVE BEEN"
  293. 3110 PRINT" HIRED TO HELP YOU. [193]S YOU PICK A CARD,"
  294. 3120 PRINT" A [194]UGABOO WILL POP OUT AND FLIP THAT"
  295. 3130 PRINT" CARD OVER SO THAT YOU ARE ABLE TO SEE"
  296. 3140 PRINT" IT!"
  297. 3142 PRINT"  [201]F YOU NEED SEE THE INSTRUCTIONS "
  298. 3143 PRINT" AGAIN, JUST HIT THE '[198]1' KEY. [194]UT"
  299. 3144 PRINT" REMEMBER THAT THIS WILL END THE GAME"
  300. 3145 PRINT" IN PROGRESS."
  301. 3150 PRINT"[144]          [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][194][197][199][201][206]";
  302. 3160 GETB$:IFB$<>CHR$(13)THEN3160
  303. 3170 PRINT"[147]":PRINTCHR$(142):RETURN
  304. 3180 V=53248:POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,15
  305. 3190 POKEV+28,255:POKEV+37,5:POKEV+38,0
  306. 3200 REM
  307. 3210 FORSP=832TO894:READA:POKESP,A:NEXT:GOSUB380
  308. 3220 FORSP=896TO958:READA:POKESP,A:NEXT:GOSUB380
  309. 3230 FORSP=960TO1022:READA:POKESP,A:NEXT:GOSUB380
  310. 3240 POKEV+21,0:POKEV+39,1:POKEV+40,1:POKEV+41,1:POKEV+42,1
  311. 3250 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,11:POKES+2,0
  312. 3260 POKES+3,4
  313. 3270 RETURN
  314. 3280 REM
  315. 3290 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
  316. 3300 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,80,0,0
  317. 3310 DATA85,85,80,85,85,80,21,85,64,0,0,0,0,0,0
  318. 3320 REM
  319. 3330 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
  320. 3340 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,0,0,5
  321. 3350 DATA5,85,85,5,85,85,1,85,84,0,0,0,0,0,0
  322. 3360 REM
  323. 3370 DATA17,0,17,21,0,21,16,0,1,16,128,129,18,162,161,18,162,161,18,251,225
  324. 3380 DATA18,251,225,22,251,229,21,149,149,5,85,84,7,213,244,5,127,84,5,85,84
  325. 3390 DATA1,85,80,0,85,64,0,0,0,1,81,80,5,85,84,5,85,84,1,81,80
  326. 3400 DATA8,97,0,0,100
  327. 3410 DATA8,97,0,0,100,8,97,0,0,50,8,97,0,0,50,8,97,0,0,100,8,97,0,0,50
  328. 3420 DATA8,97,0,0,50,10,143,0,0,100,8,97,0,0,100,8,97,0,0,200:REM    ***
  329. 3430 DATA8,97,10,143,100,8,97,10,143,50,8,97,10,143,50,8,97,10,143,100
  330. 3440 DATA 8,97,10,143,50,8,97,10,143,50,10,143,12,143,100,8,97,10,143,100
  331. 3450 DATA 8,97,10,143,200,10,143,12,143,100,10,143,12,143,50,10,143,12,143,50
  332. 3460 DATA 10,143,12,143,100,10,143,12,143,100,12,143,16,195,100
  333. 3470 DATA 8,97,4,48,100,8,97,4,48,400
  334. 3480 REM ***
  335. 3490 DATA 7,12,100,8,97,25,8,97,100,8,97,100,9,104,100,8,97,25,7,12,100
  336. 3500 DATA 5,152,120,7,119,40,7,119,5,8,97,70,7,12,100,6,71,25,5,152,100
  337. 3510 POKES+5,0:POKES+6,0:FORJ=0TO7:POKEV+J,0:NEXT
  338. 3520 Y=B1(A):X=B2(A):POKES+24,15
  339. 3530 FORO=4TOXSTEP4:POKEV+21,1:POKEV+0,O:POKEV+1,Y
  340. 3540 POKES+4,33:POKES+1,40:POKES,100:POKES+4,32
  341. 3550 POKEV+21,2:POKEV+2,O+1
  342. 3560 POKEV+3,Y:POKES+4,129:POKES+1,100:POKES,100:POKES+4,128:NEXT
  343. 3570 POKEV+21,4:POKEV+4,O-5:POKEV+5,Y-2:POKES+1,0:POKES,0
  344. 3580 POKES1(A)+54272,1:POKES1(A)+54273,1
  345. 3590 REM
  346. 3600 D$=WD$(A):D=L1(A):D1$=MID$(D$,D)
  347. 3610 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
  348. 3620 D=ASC(D2$):D1=ASC(D3$)
  349. 3630 POKES1(A),D-64:POKES1(A)+1,D1-64
  350. 3640 RETURN
  351. 3650 Y=B1(A1):X=B2(A1)
  352. 3660 FORO=4TOXSTEP4:POKEV+21,5:POKEV+0,O:POKEV+1,Y
  353. 3670 POKES+4,33:POKES+1,60:POKES,100:POKES+4,32
  354. 3680 POKEV+21,6:POKEV+2,O+1
  355. 3690 POKEV+3,Y:POKES+4,129:POKES+1,150:POKES,100:POKES+4,128:NEXT
  356. 3700 POKEV+42,1:POKEV+21,12:POKE2043,15:POKEV+6,O-5:POKEV+7,Y-2:POKES+1,0
  357. 3710 POKES,0:POKES1(A1)+54272,1:POKES1(A1)+54273,1
  358. 3720 REM
  359. 3730 D$=WD$(A1):D=L1(A1):D1$=MID$(D$,D)
  360. 3740 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
  361. 3750 D=ASC(D2$):D1=ASC(D3$)
  362. 3760 POKES1(A1),D-64:POKES1(A1)+1,D1-64
  363. 3770 RETURN
  364. 3780 STOP
  365. 3790 REM
  366. 3800 IFNM=1THENAV$="":GOTO3870
  367. 3810 IFNM=2THENAV$="":GOTO3870
  368. 3820 IFNM=3THENAV$="":GOTO3870
  369. 3830 IFNM=4THENAV$="":GOTO3870
  370. 3840 IFNM=5THENAV$="":GOTO3870
  371. 3850 IFNM=6THENAV$="":GOTO3870
  372. 3860 IFNM=7THENAV$=""
  373. 3870 PRINTAV$;"[158][153]";TAB(31);WD$(NM)
  374. 3880 EE$(NM)="NIL"
  375. 3890 POKES1(A)+54272,2:POKES1(A)+54273,2
  376. 3900 POKES1(A),160:POKES1(A)+1,160
  377. 3910 POKES1(A1)+54272,2:POKES1(A1)+54273,2
  378. 3920 POKES1(A1),160:POKES1(A1)+1,160:RETURN
  379. 3930 PRINT"[147]":PRINTCHR$(142):POKE53280,6:POKE53281,12
  380. 3940 CC=CC+1:IFCC=3THENCC=0:RETURN
  381. 3950 PRINT"[147]    PLAYER # ";CC
  382. 3960 PRINT"   NAME: ";
  383. 3970 REM
  384. 3980 IU=9
  385. 3990 ZZ$(CC)="":POKE204,1
  386. 4000 GETZA$:IFZA$=""THEN4000
  387. 4010 IFASC(ZA$)=13THENPRINT" ":POKE204,1:SN$=ZZ$:GOTO4090
  388. 4020 IFASC(ZA$)=20THENGOTO4070
  389. 4030 IFIU+1=>18THEN4000
  390. 4040 IFASC(ZA$)<65ORASC(ZA$)>90THEN4000
  391. 4050 IU=IU+1:ZZ$(CC)=ZZ$(CC)+ZA$
  392. 4060 PRINT;TAB(IU);ZA$;:GOTO4000
  393. 4070 IFIU=9THENGOTO4000
  394. 4080 ZZ$(CC)=LEFT$(ZZ$(CC),LEN(ZZ$(CC))-1):IU=IU-1:GOTO4060
  395. 4090 IFZZ$(CC)=""THEN3950
  396. 4100 GOTO3940
  397. 4110 :
  398. 4120 :
  399. 4130 EZ$=""
  400. 4140 PRINTEZ$;"[145][154][175][175][175][175][175][175][175][175][175][175][175][175]"
  401. 4150 PRINT"            "
  402. 4160 PRINT"            "
  403. 4170 FORI=1TOCC:PRINTEZ$;TAB(I+26);"";ZZ$(1);:NEXT:PRINT":";T1
  404. 4180 EZ$=""
  405. 4190 FORI=1TOYY:PRINTEZ$;TAB(I+26);ZZ$(2);:NEXT:PRINT":";T2
  406. 4200 PRINT"[154][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  407. 4210 IFT1+T2=7THEN4230
  408. 4220 RETURN
  409. 4230 PRINTA$;"                                        "
  410. 4240 POKEV+21,0:FORI=1TO1000:NEXT
  411. 4250 A1$=""
  412. 4260 A$="[157][157][157][158][213]   [146][201][157][157][157][157][157][202]   [146][203][157][157][157][157][223] [146][169][157][157] [146][157][157][185] [146][185]"
  413. 4270 AA$="[157][157][157][158]     [157][157][157][157][157]     [157][157][157][157]   [157][157] [157][157]    "
  414. 4280 PRINT"[147]":IFT1>T2THEN PRINT"      ";ZZ$(1)
  415. 4290 IFT2>T1THEN PRINT"      ";ZZ$(2)
  416. 4300 PRINT"      IS THE WINNER!!"
  417. 4310 GOSUB4750
  418. 4320 PRINT"[145][145][145][145][145][145]":PRINTA1$;A$
  419. 4330 PRINT"[155]       [146]"
  420. 4340 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  421. 4350 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  422. 4360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  423. 4370 FORT=VTOV+5:POKET,0:NEXT:POKES+24,15
  424. 4380 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  425. 4390 POKES+12,9:POKES+13,11:POKES+11,129:POKES+7,100:POKES+8,40:POKES+11,128
  426. 4400 POKEV+21,1:POKEV+1,206:POKEV+3,206:A=32:H=206
  427. 4410 FORTH=10TO32STEP4:POKEV+21,1:POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
  428. 4420 POKEV+21,2:POKES+4,129:POKES,150:POKEV+0,TH:POKEV+2,TH
  429. 4430 POKES+1,200:POKES+4,128:NEXTTH
  430. 4440 FORTT=1TO5:FORTH=ATOA+24STEP4:POKEV+0,TH:POKEV+1,H:POKEV+21,1
  431. 4450 POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
  432. 4460 POKEV+2,TH:POKEV+3,H
  433. 4470 POKEV+21,2:POKES+4,129:POKES,150:POKES+1,200:POKEV+4,128:NEXTTH:H=H-8
  434. 4480 A=A+24:NEXTTT:PRINT"";TAB(20);AA$
  435. 4490 POKEV+21,4:POKEV+4,166:POKEV+5,172:PRINT"";TAB(20);A$;""
  436. 4500 POKE1601,100:POKE1605,100:POKE1601+54272,1:POKE1605+54272,1
  437. 4510 POKES+2,0:POKES+3,5:POKES+5,6:POKES+6,10
  438. 4520 POKES+9,1:POKES+10,15:POKES+12,6:POKES+13,10:POKES+24,15
  439. 4530 FORI=1TO27:POKES+4,65:POKES+11,65:POKES,I2(I):POKES+7,I4(I)
  440. 4540 POKES+1,I1(I):POKES+8,I3(I):POKES+11,64:POKES+4,64
  441. 4550 FORK=1TOI5(I):NEXTK:NEXTI
  442. 4560 FORH=1TO500:NEXT:POKES,0:POKES+1,0:POKES+7,0:POKES+8,0
  443. 4570 PRINT"[155]    DO YOU WISH TO PLAY AGAIN?[160](Y/N)   ";
  444. 4580 REM
  445. 4590 GETB$:IFB$=""THEN4590
  446. 4600 IFLEFT$(B$,1)="Y"THEN4640
  447. 4610 IFLEFT$(B$,1)<>"N"THEN4590
  448. 4620 PRINT"[147][146]BYE!":POKEV+4,24:POKEV+5,59:POKES+4,21
  449. 4630 POKES,20:POKES+1,100:POKES+4,20:END
  450. 4640 JX=0:JW=0:A9=0:A8=0:X1=0:X2=0:X=0:A=0:A1=0:W=0:T1=0:T2=0
  451. 4650 FORI=1TO7:EE$(I)="":NEXT
  452. 4660 POKEV+21,0:PRINT"[147]      SAME PLAYERS AGAIN  (Y/N) ?"
  453. 4670 GETB$:IFB$=""THEN4670
  454. 4680 IFLEFT$(B$,1)="Y"THEN4730
  455. 4690 IFLEFT$(B$,1)<>"N"THEN4670
  456. 4700 PRINT"[147]"
  457. 4710 FORI=1TO15:Y1$(I)="":Y2$(I)="":NEXTI:FORI=1TO14:SP(I)=0:NEXT
  458. 4720 FORI=1TO7:EE$(I)="":NEXT:GOSUB320:PRINT"[147]":GOSUB710:GOTO450
  459. 4730 PRINT"[147]":FORI=1TO14:SP(I)=0:NEXT:GOSUB320:GOSUB710
  460. 4740 GOTO460
  461. 4750 POKE53280,0:PRINT"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  462. 4760 PRINT"   [206][209] [156][209] [158][209][209] [209][209][129] [209][209][155][209][209][209][209][209] [209][158] [209][155][209][209] [209][209][209][153][209][209] [209][205]"
  463. 4770 PRINT"  [206][209][209][209][159][209][158][209][209]   [209][154][209][209][155][209][158][209][209]  [159][209][150][209][209][156][209] [209][209][158][209]  [209] [209][209]  [205]"
  464. 4780 PRINT" [206] [209][159][209] [209][209][209]  [158][209][209][209] [209][153][209][209]  [150][209][209][156][209][209][209][155][209][209][209][158][209]  [209][151][209][158][209] [159][209] [205]"
  465. 4790 PRINT"[206][209][209][159][209][209][209][158][209]  [156][209] [129][209][209][153] [209][209][158][209] [209]  [150][209][209][159][209][209][209] [209][153][209]  [209][209][209][209][129][209]  [205]"
  466. 4800 PRINT"                                       "
  467. 4810 PRINT"                                       "
  468. 4820 PRINT"                                       "
  469. 4830 PRINT"                                       "
  470. 4840 REM  PRINT"[154]                                       "
  471. 4850 RETURN
  472. 4860 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
  473. 4870 GETZ$:IFZ$=""THEN4870
  474. 4880 IFZ$<>CHR$(13)THEN4870
  475. 4890 GOSUB1530:RETURN
  476.